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IDENTIFICATION 


PRODUCT CODE: AC-8507F -MC 

PRODUCT NAME : CZDJBFO DJ11 EXER & ONLNE 
PROGRAM DATE: JUNE 1978 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL erat gal CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS —_ FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR 

ITS AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972, 1978 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT 
CORPORAT I ON: 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DECUS DEC TAPE 
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ABSTRACT 


THIS PROGRAM CONSISTS OF THREE SUB=PROGRAMS WHICH EXRECISE 
THE DJ11 ASYNCRONOUS at oo PROGRAM 1 IS AN OFF=LINE 
EXERCISER. PROGRAM 2 IS ON-LINE EXERCISER WHICH 
CONTINUOUSLY TRANSMITS THE LAST CHARACTER RECEIVED. PROGRAM 
3 IS AN ECHO TEST. 


NOTE: PROGRAM 1 WILL RUN ANY SILO ALARM LEVEL SETTING. 
(FOR PROGRAM 2 AND 3 SEE SECTION 9.) 
REQUIREMENTS 


EQUIPMENT 


PDP-11 STANDARD COMPUTER WITH CONSOLE TELETYPE 
UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS. 


STORAGE 
THIS PROGRAM USES ALL OF 8k, EXCEPT ABSOLUTE LOADER. 


PRELIMINARY PROGRAMS 
CZDJA DJ11 LOGIC TESTS 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ABS TAPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE 5.1 (ALL DOWN FOR WORST CASE TESTING) 


STARTING ADDRESS 


THE PROGRAM SHOULD ALWAYS BE STARTED AT 209. IT MAY BE 
RESTARTED AT 1000 AFTER ALL PARAMETERS HAVE BEEN SELECTED. 
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4.3 PROGRAM AND OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY USING ABS LOADER. 

LOAD ADDRESS 200. 

IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET ge hs 
(SEE SEC. 5.1), ALL DOWN FOR WORST CASE, PRESS STAR 

IF SwITCH=LESS PROCESSOR SIMPLY PRESS START. 

ENTER THE PROGRAM 


ER - ° 
SELECT LINES IF SwW<8> IS ONA 
PROGRAM 1 WILL LOOP AND BELL WILL RING ONCE EVERY PASS. 
“EOP’’ IS ALSO” PRINTED ON EACH PASS. 
OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
AT SA a “1 SWITCHES DOWN IS WORST CASE TESTING. _ FOR 
PROGRAM 1 THE BELL WILL RING AND oe IS PRINTED UPON 
COMPLETION OF "A PASS OF THE ENTIRE PROGRAM 
THE SWITCH SETTINGS ARE: 
Sw<15> HALT ON ERROR 
SW<13> INHIBIT PRINTOUT 
SW<12> PRINT SILO ALARM LEVEL (PROG1 ONLY) 


Sw<10> OR 
COMPLETE (PROG1 ONLY) 


L_ON PASS 
SW<9> INHIBIT MAINTENANCE (PROG1 ON-LINE) 
Sw<8> 1 SELECT LINES FOR TEST (SEE 5.3) 


PROG1 ONLY: 
:Q>= BINARY COUNT PATTERN 
“THE QUICK SILVER GRAY FOX ... 
ALPHA-NUMERIC (40-177) 
-- NOT USED 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR 
WITHOUT A_HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE 
PROGRAM aaah ® THE EXISTENCE OF A HARDWARE SWITCH REGISTER. 
IF NCT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 
176) IS DEFAULTED TO. IF THIS IS THE CASE, UPON EXECUTION 
THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON THE CONSOLE 
TTY AND ANY CHANGES ARE REQUESTED 


(1.E.) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


1, <CR> IF NO CHANGES ARE TO BE MADE. 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH 
—— VALUE; LAST DIGIT FOLLOWED BY 

~~ TO ALLOW RECNTERING VALUE IF ERROR IS 
COMMITTED KEYING IN SWREG VALUE. 
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BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE 
ING PR EXE BY STRIKING 


HE PROGRAM C (IE) ERROR ROUTINES, AFTER HALTS 
END OF PASS, AND OTHER APPLICABLE AREAS. 


SUBROUTINE ABSTRACTS 
HLT 
THIS ROUTINE (CALLED BY AN EMT INSTRUCTION) PRINTS OUT AN 


ERROR MESSAGE .SEE 6.1). TO INHIBIT TYPEOUTS, PUT SW<13> ON 
A 1. TO RING THE BELL ON AN ERROR, PUT SW<10> ON A 1. 


ALMCK (PROG1 ONLY) 


IN THE NORMAL OPERATION THE ‘DONE’ BIT IS iM AS_ EACH 
~ ~~ 

a oa OF THE JUMPERS 

THE PROGRAM TESTS 

ALARM L'* AND IF Sw12 IS SET (1) IT WILL 

re = aly THE a (IN OCTAL) AT watcn EACH DJ11 IS WILL 


SUBROUTINE ALSO ADJUSTS THE CHARACTER 
COUNTERS TO” ENSURE THAT THE MAXIMUM NUMBER OF “gre tee 


l. 
S SET isigd’ CHARACTER IN THE BUFFER, REGARDLESS OF THE 
SILO ALARM LEVEL.) 


TRAPCATCHER 


+2°' = "HALT’’ SEQUENCE IS an FROM, o ~ 56 TO DETECT 
ANY” UNEXPECTED TRAPS AND ‘e ‘IOT'’ SEQUENCE IS 
REPEATED FROM 60 - 776 TO DETECT ANY UNEXPECTED ola tae 
THUS ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR + 2. ANY 
UNEXPECTED INTERRUPTS WILL RESULT IN AN ERROR MESSAGE AND 
"HALT'’ IN “"IOTRAP"'. 


PROGRAM AND OPERATOR ACTION 

AFTER THE pevily oP cnt ARE REPORTED, THE PROGRAM TYPES 
PROG WHICH TIME THE OPERATOR ENTERS '1'', ‘'2°', 

OR ‘‘S*’ DEPENDING ON THE SUB-PROGRAM HE WISHES TO RUN. 


IF Sw<8> IS ON A 1, THE PROGRAM WILL TYPE OUT ‘' N_ SELECT 





CZDJBFO DJ11 EXER & ONLNE 


G 1 
MACY11 30A(1052) 21-JUN-78 14:01 PAGE 7 


CZ2DJBF .P11 21-JUN-78 13:56 


OPERATOR RESPONDS BY TYPING IN AN OCTAL ae 
NG THE LINES) wri ARE TC BE TES 


ERROR PRINTOUT 

THE FORMAT IS AS FOLLOWS: 
ADR (R1) (R2) (R3) (RS) 
WHERE : 


ADR = ADDRESS OF ERROR HLT 

(RN) = CONTENTS OF GENERAL REGISTER ‘N''. FROM NONE TO 
FOUR OF THESE «7 BE TYPED DEPENDING ON THE NUMBER 
FOLLOWING THE HLT; E€.G., HLT+3 WOULD TYPE (R1) 
THRU (R3); HLT (by ITSELF) "WOULD STOP AFTER TYPING 
ADR AND DJADR. 


TO FIND THE FAILING TEST, LOOK AT THE LISTING ABOVE THE 
ADDRESS TYPED. IN MOST CASES THE COMMENT BESIDE THE HLT 
TELLS WHAT WAS BEING CHECKED AND WHAT WAS EXPECTED. 

ERROR RECOVERY 


RESTART AT 200 OR 1000. 


ERROR COUNTER 


AN ERROR COUNT IS KEPT IN “ERRORS'' . IT CAN BE CLEARED FROM 
nT ape BY RESTARTING AT 200, OR BY RELOADING THE 


RESTRICTIONS 


THIS PROGRAM REQUIRES THAT THE DiVICE ADDRESSES FOLLOW THE 
FLOATING ADDRESS CONVENTION (DJ11°S WILL BE FIRST, STARTING 
AT 160010, THEN THE DH11°S) AND THAT THE VECTOR ADDRESSES 
ALL BE CONTIGUOUS. IF THE FIRST DJ11 ADDRESS 1S NONSTANDARD 
(OTHER THAN 160010 ) THEN LOC. 1270 MUST BE CHANGED 10 
CONTAIN THIS NONS TANDARD ADDRESS. 


IF THIS PROGRAM IS RUN WITH A MONITOR, I.—. ACT11 OR DODP, 
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ONLY PROGRAM 1 IS RUN. 
MISCELLANEOUS 


EXECUTIGN TIME (PROG1 ONLY) 


DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE ABILITY TO 
CHECK UP TO 16 DJ11°S AT ONCE, THE EXICUTION TIME CAN VARY 
ANYWHERE FROM 3 SECONDS TO NEARLY AN HOUR. THE FOLLOWING 


TYPICAL TIMES ARE FOR ONE DJ11 WITH ALL LINES AT e Bay | 
SPEED, 8 LEVEL CODE, 2 STOP BITS. AND NO PARIT 
PDP-11/20 FOR MULTIPLE DJ11°S, semateatacel THE SE TIMES By 
THE NUMBER OF UNITS SELECTED FOR TEST 


STACK POINTER 
STACK IS INITALLY SET TO 1200 


PASS COUNT (PROG1 ONLY) 


A 32 BIT (2 WORDS) PASS COUNT IS KEPT IN ‘PCNT’' . IT CAN BE 
CLEARED FROM THE CONSOLE, BY RESTARTING AT 200, OR BY 
RELOADING THE PROGRAM. 


POWER FAIL 


CAN BE POWER FAILED WITH NO ERRORS. TO USE, 

THE PROGRAM AS USUAL AND POWER DOWN THEN UP AT ANY 

THE ROUTINE SHOULD TYPE ‘POWER'' AND RESTART THE 
PROGRAM WITH NO OTHER ERROR TYPEOUTS. 
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PROGRAM DESCRIPTION 


THIS PROGRAM CONSISTS OF THREE SUB-PROGRAMS WHICH EXERCISE 
THE LOGIC OF UP TO 16 DJ11 ASYNCHRONOUS DATA MULTIPLEXERS. 


PROGRAM 1: EXERCISER (OFF-LINE) 

THIS PROGRAM EXERCISES UP TO 256 LINES (16 DJ11'S) 
SIMULTANEOUSLY IN MAINTENANCE MODE. THREE DIFFERENT DATA 
PATTERNS MAY BE SELECTED FROM THE SWITCH REGISTER. THE DATA 
PATTERN IS REPEATED A MINIMUM OF 16 TIMES FOR EACH PASS. 
THE PROGRAM SHOULD BE RUN FOR AT LEAST 2 PASSES WITH ALL 
SWITCHES DOWN. SwW<9> ON A_ ONE DISABLES THE MAINTENANCE 
MODE, REQUIRING TURN-AROUND CARDS AT THE TERMINATION OF EACH 
LINE BEING TESTED. (NOTE: THE RECIEVER AND TRANSMIT LINES 
MUST BE JUMPERED FOR THE SAME SPEED.) 


PROGRAM 2: CONTINUOUS ECHO EXERCISER (ON-LINE) 

THIS PROGRAM CONTINUOUSLY TRANSMITS THE LAST CHARACTER IT 
RECEIVED ON THE RESPECTIVE LINE. A NULL (000) WILL ‘ECHO"’ 
72 TIMES AND THEN TURN OFF THE TRANSMITTER. 


PROGRAM 3: ECHO TEST (ON-LINE) 

THIS PROGRAM TRANSMITS A HEADING (*ECHO TEST*) ON EACH LINE 
AND THEN ECHOS EVERYTHING THAT IT RECEIVES. 

CAUTION: IF CHARACTERS ARE RECEIVED FASTER THAN THEY CAN BE 
TRANSMITTED, THE SOFTWARE BUFFERS MAY OVERFLOW. 


NOTE: THE ON-LINE EXERCISERS (PROG2 AND PROG3) ARE OPERATOR 
DEPENDENT, AND THEREFORE DO NOT LOOP. I.E. NO PASSES. 
ACT11 AND DDP MONITORS WIL’ ONLY RUN PROCI. 


SEQ 0008 
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SWITCH 
HALT ON ERROR 
sNOT USED 


; INHIBIT ERROR TYPEOUTS 
[PRINT SILO ALARM LEVEL 
NOT USED 


U 
:0 - BELL ON PASS COMPLETE 
;1 = BELL ON ERROR 
SON-LINE (PROG1) 

400 ; SELECT LINES eee rae se TIME ONLY) 
72> SELECT MESSAGE (PROG ONLY 


DJ11 REGISTER BIT ASSIGNMENTS: 
CONTROL STATUS REGISTER (CSR) XXXXx0 
BITO RECEIVER E 


MAINTENANCE (READ/WRITE) 
CLEAR MOS (WRITE ONLY) 
CLEAR MOS FLAG (READ ONLY) 
NOT USED 


U 
RECEIVER Pout ENABLE (READ/WRITE) 
DONE (READ ON 
MASTER TRANSMITTER SCAN ENABLE (READ/WRITE) 


NOT USED 

READ/WRITE BREAK REGISTER (READ/WRITE) 

NOT USED 

STATUS ENABLE (READ/WRITE) 

FI/FO OVERRUN (READ ONLY) 

MASTER TRANSMITTER INTERUPT ENABLE (READ/WRITE) 

TRANSMITTER READY (READ ONLY) 

REGISTER (RBUF) XXXXX2 (READ ONLY) 

RECEIVED CHARACTER 

INE NUMBER 

PARITY ERROR 

FRAMING ERROR 

UART OVERRUN ERROR 

CHARACTER PRESENT 
TRANSMITTER CONTROL REGISTER (TCR) XXXXX4 (READ/WRITE) 

BITO-15 STOP THE SCANNER ON CORRESPONDING LINE 

TRANSMITTER BUFFER (TBUF) XXXXX6 


BITO-7 TRANSMITTED CHARACTER “nai ONL Y ) 
BIT8-11 LINE NUMBER (READ ONLY) 


BREAK CONTROL STATUS REGISTER (BCSR) XXXXxX4 (BIT10 OF CSR SET) (READ/WRITE) 
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BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE! 


; TRAP CATCHER IN LOCATIONS 0 THRU 776 


000000 000000 0 LOCATIONS ®. AND 2 CONTAIN ‘HALT’’ INSTRUCTIONS 


0 
0, 
LOCATIONS 4 THRU 56 CONTAIN “' an AND ‘HALT’ IN EVERY VECTOR 


;LOCATI 60 THRU 776 CONTAIN ‘'.+2°' AND "‘IOT’’ IN EVERY VECTOR 


000046 . 46 
014614 SENDAD 


000174 = 174 
000000 DISPREG-0 
000000 SWREG: 0 


000200 . 200 

009137 006312 3200 ALWAYS IS THE STARTING ADDRESS 
001 . 10 RESTART ADDRESS 

000137 007310 


001200 
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BRIERE 


a SS SS SS SY YY 


PAPA AIAIAIIVIV 
WODNAUSWN—O 


ROMA 
NZS 


001312 
002312 


003312 
004312 


005312 
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ICNT: 
ERRORS: 
900000 PCNT: 


177570 SWR : 
177570 DISPLAY: 


000000 
000020 
000000 


1 
PAGE 


12 


: ITERATION COUNT-LH, TEST NO.-RH 
ERROR COUNT REGISTER 
PASS COUNT REGISTER 


. 


Be Be Be Be Be Fe Be Be Be Be Se Be Be Be Se Be Be 


Statist ttt ttt} 


=z 

ct 

a 

2 

Po] 

oO 

m7 

az 

a 

> 

oU0g 

cum 

—= YY) 
—_ —> 

3 

8 

~— 


SELECTED. 
SELECTED, 


BABBAssgsags 
— 3 ) — 3 9 > ss ss — | oo Ss 


SELECTED, 


sRECEIVE ae SIZE _(PROG3) 


NUMBER OF UNITS ON THE SYSTEM 
inet DEVICE ADDRESS 
FIRST VECTOR ADDRESS 


ZRECEIVER BR LEVEL = 5 


; TRANSMITTER BR LEVEL = 5 
: INTR SVC_RTN FLAG 
[SILO ALARM Level FLAG 


;TIME COUNTERS 
VALUE OF THE SILO ALARM LEVEL 


J RH RH TT IM TI REE EERE REE RK EERE REE EEE EE 


; TABLES 


IOI IIOIIOIOIUIOIOIOIOIUIOIDISIDIDIOIIOIOIUIOIOIOIOIOIOI IOI IOI IOIOIOIOIOIOIII IIIT OT I IIOIIOIOIOIOIOI II 
; TRANSMIT DATA POINTER TABLE 


RECEIVE DATA POINTER TABLE (PROG1) 
sRECEIVE DATA TABLE (PROG2 AND PROG3) 


POINTER FOR XMIT/RCV BFRS. 


XMTTAB: .BLKW 400 
RCVTAB: .BLKW 400 


MAXTAB: .BLKW 400 


XMTCNT: .BLKW 400 
RCVCNT=XMTCNT +1 


MASK: -BLKW 400 
CNT TAB=MASK +1 


: TRANSMIT DATA COUNTER 
RECEIVE DATA COUNTER 


; CHARACTER MASK TABLE 
: ITERATION COUNT AND FLAGS 


SEQ 0011 
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001200 BEGIN: #STACK, SP :SET UP STACK POINTER 
016230 J PC, SUSWRR 
000020 #20,R 
015712 MIOTRAP,(RO)+  ;IOT VECTOR (20) 
#340, (RO) + 
OWNS , tebe ;POWER FAIL VECTOR (24) 
)+ 
(RO)+  ;EMT VECTOR (30) 


:CLEAR ERROR COUNTER 
CLEAR PASS COUNTER 


START OF FLOATING VECTOR AREA 
; UPDATE pen TER 

3PUT oe, " IN EACH VECTOR 
AND "‘IOT 


; CHECK POR END OF FLOATING VECTOR AREA 
BRANCH IF MORE 


ALMFLG :CLEAR THE ALARM FLAG 
#256. ,CNINIT SET cet gy SIZE VALUES 
#70.,CNINIT+4 FOR PROG # 


#70. ,CNTNIT+10 
#1,TIMES :SET FOR QV ON FIRST PASS 


FREER ERA EKEEKEEEEREEREKERKEEKEEKKEKKKEK 


ROUTINE TO MAP ALL THE DJ11°S ON THE SYSTEM 


SEERA RRR EEE REE 


DEVADR, RO :GET FIRST FLOATING ADDRESS 
1 Re COUNTER FOR DJ11'S 
av6 [RTI WHEN TIME-OUT 
SET UP COUNTER 
:SET CARRY 


CHECK FOR A DEVICE 
BRANCH IF 
G0 TO ‘B;if ahaa ADDRESS 


000006 : RESTORE TIMEOUT VECTOR 
001264 R1, UNITS  ;SAVE COUNT 


BN G 
016624 G01 sTYPE ‘NO DJ11°S!** 
HAL T :FATAL ERROR 
014542 sRESTART 


FERRER RRR REE EERE KEKE EERE EER KERR EEK EEE 


;ROUTINE TO DETERMINE VECTOR ADDRESSES OF DJ11°S 


FREER REE EEE EERE REE 


GETVEC: MOV ae. ~(SP) ;SAVE_IOT VECTOR 
000020 MOV 4 a#20 sRESET IOT VECTOR 
MOV DEVADR, R1 zFIRST DJ ADDRESS 
MOV W400, (R1) SET CSR 
;BIT8= TRANS SCAN ENABLE 


SEQ 0012 
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;BIT14= TRANS INTERRUPT ENABLE 
012761 000004 MO #1, 4(R1) TCR, LINE 0 
000001 Wart FOR AN INTERRUPT 


CONTINUE AFTER INTERUPT 


SAVE VECTOR ADR. (+4) 
sREPOSITION ADR TO RCV. VEC. 
:SAVE_FIRST VECTOR 
(SP)+, (SP)+ ;RESET STACK FROM IOT 
sRETURN FROM INITIAL INTERUPT 


3$: (SP)+, a#20 tM IOT VECTOR 
-(R2) :POINT TO XMT. VEC. +2 
UNITS, R3 :SET UP UNIT COUNTER 


CHECK THAT VECTORS ARE CONTIGUOUS 


2$: : CLEAR ie 
(R1) ZCLEAR CSR 
SRESTORE IOT TO XMT. VEC.+2 
+ CHECK FOR MORE DJ11°S 
CH IF DONE 


SUPDATE DJ ADR. POINTER 
[UPDATE VECTOR POINTER 
RTI ON INTERRUPT 
SET CSR 
000004 MOV #1 4 TCR LINE 0 
WAIT FOR AN INTERRUPT 
:REPORT CONFIGURATION 


172312 REPORT: #B1T13, @SWR CHECK FOR INHIBIT TYPOUT 
ee :SKIP REPORT IF SET 


RETURN 


MSGADR 
DEVADR ,TTY TYPE DEVADR IN OCTAL 
Seore : TYPE LEADING ZERO'S 


V 
VECADR,TTY TYPE VECADR IN OCTAL 
PC,PRINTS SAND SUPRESS LEADING ZERO'S 


MSGNUM 
UNITS, TTY TYPE UNITS IN OCTAL 
PC,PRINTS sAND SUPRESS LEADING ZERO'S 
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FARRER ERE EREERE EERE EREEEEKREE 


[ROUTINE TO MAP CHARACTER LENGTHS 


IBIAS IIIOISIIIIIIOISIOISIIIIIISISIIOISIIIUIDIDIROOIUIIIISIOIIIOIIIOIIOIIIIIUIOUIOIIOIOIUIUIII IID 
022737 000176 001210 GETLEN: CMP ASWREG , SWR 
001002 BNE 6$ 
016126 PC, CNTLU 
1264 6$: MOV UNITS, RO SET UP UNIT COUNTER 
DEVADR, R1 SET UP DEVICE ADDRESS POINTER 
[SET UP LINE MARKER 


#1 R2 K 
#415,  (R1) [RCV ENB, CMOS, MAINT., TRANS SCAN ENB 
MBIT4, (R11) “WAIT FOR MOS TO CLEAR 


10$ 
2$: 4(R1) =; TRANS CONTROL, ONE LINE AT A TIME 
3$: (R1) [WAIT FOR TRANS READY 


3$ 
000006 - 6(R1)  ;SEND A RUBOUT 
Re 7 SKIP 7 LINES 


1$: 


;BRANCH BACK IF MORE LINES 
CLEAR TCR 

UPDATE POINTER TO NEXT UNIT 
CHECK FOR MORE UNITS 


SET UP UNIT COUNTER 

SET UP DEVICE ADDRESS POINTER 
SET UP CHAR LEN TABLE POINTER 
SET UP CHAR COUNTER 

[SAVE AND CHECK CHAR PRESENT 


DUP DATA 
R5 sLINE # IN LOW BYTE 
177760 qr erone —s ALL BUT LINE # 


Re, R5 ;MAKE POINTER gh nny TABLE 


OMB RS 
177400 #177400,R4 
R4, (R5)+ 
(R5)+ 
(R5)+ : 
(R5)+ ZSAVE THE MASK 
sCOUNT TO 4 


R1 egy POINTER TO NEXT DJ 
R2 HAR _LEN a ee POINTER 
‘COUNT. UN UNITS 
BRANCH BACK IF MORE 
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000042 
016605 
015022 


000400 


220 
016434 
016411 


015376 
016414 
015022 
001214 


001264 


001264 
001220 
177777 


007332 
000003 


007332 
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171776 


Sn ers 
PROGRAM SELE 


14: 
CTI 


FERRER REERE ERE EEREEEREKE RE 


;PROGRAM 2: 
;PROGRAM 3: 


SELPRO: TST 
BN: 


SWITCH: 


PROGNO : 
PROGAD: 1 


>SELECT THE PROGRAM 
PROGRAM 1: 


TO BE RUN 
OFF-LINE EXER 


CISER 
ON-LINE EXERCISER (TRANSMIT LAST CHARACTER RECEIVED) 


ON-LINE ECHO EXERC'SER 


FARRER AREER RARER REE REEE RRR EE 


RO, TTY 
PC ;PRINTS 
MSGSEL 
R5,READIN 
SAVIT 

SAVIT, (R1)+ 
RO 

RO, UNITS 
SWITCH 

RESTAR 

UNITS, RO 
ASVSWO,R1 
#177777, (R1)+ 
RO 

1$ 

RESTART POINT 


PROGNO, RO 
SELPRO 
#3 


SELPRO 
RO 
@PROGAD (RO) 


CHECK FOR ACT 11 OR DDP 
;BRANCH IF MONITOR 


READ A NUMBER FROM THE CTY 


CHECK FOR SwW<8>, SELECT LINES 
BRANCH IF NOT 

SET UP UNIT COUNTER, DISPLAY 
[SET UP SWITCH TABLE POINTER 


PRINT THE NUMBER OF THE DR11C 
sASL FOR THE SELECTED LINES 


COUNT UNITS 
CHECK FOR MORE UNITS 
BRANCH IF MORE 


:G0 DO IT 

SET UP UNIT COUNTER 

:SET UP SWITCH TABLE POINTER 
SET ALL LINES 

; COUNT UNITS 

;BRANCH IF MORE 


;DEFAULT TO PROGRAM 1 


SEQ 0015 
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5011 
052711 


032711 
001375 


001276 
0012 


000400 


010372 
001272 


000002 


001274 


050510 


000020 
001300 


MACY11 


177776 
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PROG]: OFF-LINE EXERCISER 


FREER EERE RRR REE ERE EEE EERE RK 
:PROGRAM 1: TRANSMIT AND RECEIVE ALL LINES SIMULTANEOUSLY 

: OFF-LINE: SW<9> = 0 

3 ON-LINE: SWw<9> = 1 

; USES THE DATA TABLE SELECTED BY SW<2:0> 

2 ions VT bg REPEATS THE PATTERN AT LEAST 16 TIMES 


FEAR RRR RRR RE RERERREREEEREREERRRRERRRRKRKERERRRREREEREEEEEEEEEK 


PROG1: RESET CLEAR OUT THE WORLD 
CLR : CLEAR INTR. SVC. RIN. FLAG. 


PO 
;LENGTH OF TABLES (WORDS) 
:CLEAR THE TABLE 


LENGTH OF MASK/COUNT TABLE 
‘SKIP MASK 
CLEAR COUNT 


ROUTINE TO INITIALIZE ALL DJ11°S AND THEIR ISR'S: 
SET UP ALL INTERRUPT VECTORS 

>SET UP DEVICE ADDRESSES IN LINKER ROUTINES 

SET CSR'S EVERYTHING ENABLED 

SET TCR'S, ALL LINES ENABLED 


PIINIT: CLR 
MOV 


11$: ae SET UP RECEIVER INTERUPT VECTOR 
sADD 4 TO R3 
sADDRESS OF CSR 
sADDRESS OF RBUF 


SET UP TRANSMITTER INTERUPT VECTOR 


sADDRESS OF CSR 
CLEAR CSR 
>SET_UP CSR 


:BIT3 = CLEAR MOS 
‘BTe = = Thane T INTERUPT ENABLE 


US ENABLE 
“BIT14 = TRANSMITTER INTERUPT ENABLE 
A (R1) CHECK FOR MOS TO CLEAR 
a 7 THE SILO ALARM LEVEL BEEN CHECKED? 


SEQ 0016 
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010024 108 PC ,ALMCK =NO, at DO 4 
901220 000004 SVSWO(RO) ,4(R1) SET "TER “BITS (CSR_+ 4) 

RO ;RESTORE UNIT COUNTER 
001260 #1, MARK ET 


000001 :SET UP MARKER 
171452 aSwR,  P5 :GET SWITCH SETTINGS 
177770 #177770,R5 [MASK MESSAGE # 
;SET UP OFFSET TO TABLES 
001260 : MAR (R1) CHECK FOR LINE SELECTED IN TCR 
011230 XMTTAB(4) 
RCVT 


0 
011232 004313 ) 
INC OFFSET TO NEXT LINE 


001260 


14$ 
001000 171362 CHECK FOR ON-LINE 
BN 21$ BRANCH IF ON-LINE 
000014 ) ;SET_THE MAINTENANCE BIT AND CLR MOS 
000020 : welts, (R1) ;WAIT FOR MOS TO CLEAR 


000001 #1,(R1) ; TURN_ON RCV ENABLE 
000010 : #10,R1 :POINT TO THE NEXT CSR 


RO 
001264 RO, UNITS 
11$ 


000001 001300 #1 ,ALMFLG :SET THE ALARM LEVEL FLAG 
000140 177776 #140 s;LOWER PROCESSOR PRIORITY 
F ORGND ;GO DO IT 


000001 : ; TURN ON RCV EN 
000002 22$: | [CLEAR JUNK OUT OF THE RBUF 


FIRE RRR ERR KR KEE REE EEK EEE KER EERE EEE ERE 


:PROG1 BACKGROUND PROGRAM TO MONITOR TABLES 
FHalhstaaialadehadadedotadeboteletebelabedetebpdadotetaledatedtetalahalatalalotoiatatelabehelebeieieleieleletaiaisletaiioteiaisieiaiioiate 
; NOTE ~ PROGRAM MAY HANG IN A LOOP. 

: IF THIS HAPPENS, RUN DZDJA. 


FORGND: MOV AXMTCNT,R1 
MOV #400,R2 
218: ay 3 CHECK i COUNT TABLE CLR 


1$ > BRANCH NO 
000002 #2,R1 :GO TO NEXT LINE ENTRY 
Re COUNT LINES 
21$ BRANCH IF MORE LINES 
004313 ARCVCNT Ri 
000400 #400,Re 
001306 : (R1), COUNT :1S_# OF CHAR LEFT IN RBUF LESS THAN 
: THE SILO ALARM LEVEL 
22% F NO WAIT FOR THEM 
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000002 :IF YES IGNORE THEM 
Re [COUNT LINES 
BN 2 BRANCH IF MORE LINES 
001216 :DO THIS AGAIN? 
NO, GET OUT 


007342 
601276 : :SEE IF FLAG IS ZERO 
BN 1$ :IF NOT, 
016360 RNERR [IF YES. RCV DATA ERROR 
000020 001216 : MOV 200 IT te, TIMES THE NEXT TIME 


J @4DONE 
000004 : “ V 2 SET LINE 0 IN Mee TCR 
:SET RCV EN AFTER MAINTENANCE BIT 


TIMERA 
001304 : #200,TIMERB :SET_UP TIME CONSTANTS 
(R1) ;WAIT FOR TRANSFER READY BIT 


2$ 
000006 #377 ,6(R1) s OUTPUT A CHAR TO TBUF 
COUNT ag 
= CSR 
THE L 


?RE TURN TO TEST FOR DONE AGAIN 
RETURN TO OUTPUT ANOTHER CHAR 
“ERROR RETURN TRY AGAIN 
#B1TO,(R1) ; TURN OFF RCV ENABLE 
#B1T3,(R1) CLEAR MOS 
#1. COUNT IF SILO LEVEL SET FOR 1 THEN GET OUT 


4$ 
COUNT, SUM :GET THE LARGEST MULTIPLE OF THE 
SUM, 470. :SILO ALARM LEVEL AND USE IT IN THE 
5$ : THREE SIZE LOCATIONS 

6$ F EQUAL USE IT 


iI 
COUNT , SUM ;1F GREATER SUBTRACT ONE COUNT OFF 
SUM, CNTNIT+4 SAS CLOSE TO 70 AS POSSIBLE 


SUM, CNTNIT+10 
UM CONTINUE TO A COUNT OF 256 
SUM.4377 


6 
0104 
06 
2 

6 

6 

0 

4 


1 

1 

1 

2 

2 

30 
1 


ooo 
=O 
—j}--- — 


s 
VSNES 


35 


ahaha aad 
MAM MO 


COUNT , SUM 

SUM, CNTNIT zAS CLOSE 10 TO 256 AS POSSIBLE 
i 

#377, CNINIT “PUT SIZE tO MAX VALUE 

#70. .CNINIT+4 

#70. ,CNINIT#10 

#BiT2,(R1) ;TURN OFF THE MAINT BIT 

welts, (R1) ‘WAIT OR MOS TO CLEAR 


2 

PC,KBDINT AH THE SWITCH +t ete 
#SW12,aSWR PRINT ALARM LEVEL 

13$ “NO 

MA! ARM 

R1,TTY sYES, PRINT CSR FIRST 


ooo oO 
aaa =a 
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010314 


01 
010370 


010372 


21-JUN-78 13:56 


004737 
000004 
013705 
004737 
000207 


105237 


001302 
001304 
001306 


MACY11 30A(1052) 


000022 


13$: 


TIME: 


2$: 
1$: 


FREER EK ERE EERE KERR EKER EERE EEE EERE EH 


PROG1 


DOO IOI ISISIOIISIDISIOIIOIOIDISIDISIISIIIIIOIIOIIOISIOIOIOIIIIOIOIOIIOIUIOIIOIIOI TOI SIOISIOIDIT IDIOTIC I ot 
RISRO: 
XISRO: 
RISR1: 
XISR1: 
RISR2: 
XISR2: 
RISR3: 
XISR3: 
RISR4: 
XISR4: 
RISR5S: 
XISR5: 
RISR6: 
XISR6: 
RISR7: 
XISR7: 


G 2 
21-JUN-78 14:01 PAGE 20 
BACKGROUND MONITOR 


PC,PRINTR 
MSGDAS 
COUNT TTY PRINT ALARM LEVEL 
PC,PRINTR 
PC 
TIMERA : INCREMENT THROUGH ONE WORD 
1$ : G0 TEST FOR DONE AGAIN 
_——— MAKE TIMERB LARGER IF FAST PROCESSOR 
COUNT ,#22 ; HAVE OUTPUTTED 18 TIMES 
2$ OUTPUT ANOTHER CHAR 
:¥ES. er DID NOT SET AFTER 18 OUTPUTS 
(R5)+ 7SET R5 FOR ERROR RETURN 
(R5)+ 7SET RS FOR NEXT OUTPUT RETURN 
RS [RETURN FROM ABOVE OR RETEST DONE 


LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 


JSR 
WORD 


RO,RCV 
<16091¢¥<0*10>>, <40*0> 


RO, XMTIS 

ciaovecate thin chien 
RO,RCVISR 
<160012+<1*10>>,<40*1> 
RO, XMTI 
<160010+<1#10>>,<40*«1> 
RO,RCVISR 
<160012+<2*10>>,<40*2> 
RO, XMTISR 
<160010+<2*10>>,<40*2> 
RO,RCVISR 
<160012+<3*10>>,<40*3> 
RO, XMTI 
<160016+<3*10>>,<40*3> 
RO.RCVISR 
<160012+<4*10>>,<40*4> 
RO, XMTI 
<160010+<4*10>>,<40*4> 
RO.RCVISR 

<1600 124<5*10>>, <40*5> 
<160010+<5*10>>, <40*5> 
RO,RCVISR 
<1600124<610>>, ~<40*6> 
<160010+<6*10>>, <40*6> 
O,RCVISR 

<1600 1¢e<7*10>>, <40*7> 
<160010#<7#10>>, <40*7> 
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010572 004037 RISR10: RO.RCV 
010576 . WOR’ <160912¢<10+10>>, <40*10> 
010602 004037 


XISR10: R 
“ B760010210#10>>,<40#10> 
RISR11: SRCVISR 

<160012+<11*10>>,<40*11> 


XISR11: RO, XMTISR 
° <160010+<11*10>>,<40*11> 
RISR12: RO,RCVISR 

«WORD <160012+<12*10>>,<40*12> 
XISR12: 


RO, XMTISR 
‘ <160010+<12*10>>,<40*12> 
RISR13: RO.RCVISR 
a <160012+<13*10>>,<40*13> 
XISR13: 


RO, XMTISR 
-WORD <160010+<13*10>>,<40*13> 
RISR14: RO,RCVISR 

. WORD <160012<14*10>>, <40*14> 
KISR14: 


RO.XMTISR 
D BT b00TOse14*10>>, <40*14> 
RiSR15: RO,RCVISR 
“ <1600128<15*10>>, <40*15> 
XISR15: RO, XMTI 
. WORD <160010#<15#10>>, <40#15> 
RISR16: RO,RCVISR 
-WORD <160012+<16*10>>,<40*16> 
XISR16: RO, XMTISR 
‘ <160010+<16*10>>, <40*16> 
RISR17: RO.RCVISR 
‘ <160012+<17#10>>,<40*17> 
XISR17: RO, XMTISR 
‘ <160010+<17*#10>>, <40*17> 


8 


FEAR REAR AEE REECE RAE REE EREEREREEAERRREEAE REE REE 


[PROG] TRANSMITTER INTERRUPT SERVICE ROUTINE 


DEERE REE EKER RRA RAE EERE ERR RERAEERE ARERR REAR REEKEEE EEE 


XMTISR: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


elolelelelolejleleleo) 
me a a a ed od ot od od 
WODWNAWUSWH—O 


;PUSH R1 ON STACK 
;PUSH R2 ON STACK 


ie sCHECK FOR TRANS READY 
pst Me :GET LINE NO. 


(RO) ,R2 
eae :TST FOR ZERO 


$ 

sent raat e) OAT) ;SEND A Jom My 
XMTCNT (2) :CQUNT CHARACTERS 
lata UPDATE TABLE POINTER 


R3,-(SP) 

XMTTAB( 2) ZCLEAR TABLE POINTER 
~ Sia 

" 


3s 


Ssssseee 
RESNSRNS 


RRR 
BRNO 
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FRETS 


ie TCR_BIT FOR LINE 
RESTORE R3 


NN 
mm 


POP STACK INTO R2 
:POP STACK INTO R1 
(6)+,RO POP STACK INTO RO 


par pm po Pe pm fee oe PP 
aa at and al ca ach anh cn ald al eld a al 
—-——O00O 

“N 

as 


lelelelelelelelelelelelele) 
RVS& 


Seah tat $3 Sot at 


RARER TRE RARER HEE E 


[PROG] RECEIVER INTERRUPT SERVICE ROUTINE 


GEAR EAE RARER EERE EERE REREEEREEREERAEEERRREERE REE 


oOo 
Ww 


RCVISR: 
010146 MOV ‘ ; PUSH R1 ON STACK 


ONS 


oO 


05 

05 
10 

05 

05 

05 
1 


060 
061 
062 
063 
064 
065 
066 


7$ ;BRANCH IF NO. CHAR PRESENT 
#70000 ,Re CHECK FOR ERRORS 
2$ BRANCH IF OK 

:RECEIVER ERROR 


lelelelelelelelelelele) 
ee oe = ot od 
— ess ss Ss SS SS SS SS 
me ed ed od od 
WW > 

VSERVSRRNOKK 


See 


: OVERRUN 
070000 #70000, R2 CLEAR ERROR BITS FOR SPEED 
: Re, RS ;DUP THE RBUF 
RS :CLEAR THE DATA 
R4 ;LINE # TO LOW BYTE 
R4 LINE # * 2, ALSO CLR CHAR PRESENT 
(RO) ,R4 : ET 
@RCVTAB(RS) ,R3 ED DATA 
“ar le “MASK CHARACTER LENGTH 


3 ;BRANCH IF OK 
#177409,R3 ;MAKE SURE UPPER BYTE CLEAR 
DATA “go 


:R1 =RBUF DRESS 
=CONTENTS OF RBUF (DATA) 
=EXPECTED DATA 


e 


ak tk a ad od od od 
RERSSSSSSSSE 
== BBVRARAA > 
lelejlelelelelelelelelele) 
Ys SS -3 44 4 
Ss SS SS Ss 4s ss Ss Ss 
-— YH 4 Ss 4 SS SS FH 
™N WI & SS 


g 


we 
RCVTAB(4) UPDATE TABLE POINTER 
1$ TINUE 


BERSEEE 


012604 sg Co) * RG :POP STACK INTO R& 
012603 (6) 0 °R3 “POP STACK INTO R3 


— = ss =) - - - — 


SS 
nio— 
elelelelejlele) 





J 2 
CZDJBFO DJ11 EXER & ONLNE MACY11 30A(1052)_ 21=JUN=78 14:01 PAGE 23 SEQ 0022 
C2DJBF .P11 21-JUN-78 13:56 RECEIVER ISR 


(6)+,R2 POP STACK INTO R2 
:POP STACK INTO R1 
:POP_STACK INTO RO 


001276 ;STEP INT SVC RTN FLAG 


FEAR ARERR REE RRA EERE EERE RARER RARER ERE ERE REE AES 


[PROG] DATA TABLES 


FARRER EERE EEE REE RRR REE ERE REE EREREERERE REE 


$ 


011274 ADRNIT: BINARY ;SW<2:0>=0 BINARY COUNT PATTERN 
000377 CNINIT: 377 :SIZE E=256. 
011674 PHRASE 3 SW<e: 1 ‘THE QUICK SILVER GRAY FOX.. 
000106 70. ZE=7 
011266 SIXBIT Suc 20>= 2 040 THRU 137 
000106 70. :SIZE=70. 
016770 END 
000001 1 
017370 END +400 
000001 1 
END+1000 
pera 


ed aod cal al and a el 
OOO R RR Roy 


RF 


0 
177777 177777 SIXBIT: . <15><12><377><377><377><377> sCR-LF, FILLERS 
BINARY: 40 


NONMIN INN INN NoNng NNN 
SSSSSSSNNSNSSS 


iS) 


ONAN EWN —ONAUSWM-ON 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


kk Dk kd ed ad od od 
WWAWWAAWAWUVUNMMUNNSH SoS BBB ODO OOO OOO 
DNF ARGS GOVRARAN AS VS VRARWN LS SHVAARAW=SOSRIKARALLS 
olotololololototototototototofolotelotototototototototototetetetetetetetotetetetetetetotan 
sk ce ee ee ed ed ed ed ed nd ed nd 
ss i dd ed ed od wd wd od 


KHRHKRKHRLALRHRORW 
WINN AWN WNWNWNWNNANW WANN 
AWWRIDINININININID @ 2 PS eS PP OP 
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SEQ 0023 


PAGE 24 


78 


DATA TABLES 


-JUN- 


21 


MACY11 30A(1052) 


CZDJBFO DJ11 EXER & ONLNE 
21-JUN-78 13:56 


CZ2DJBF .P11 


WROD DD QO OOD © NUINININI CIN NI CUM MI MIMI MIM IM) SF ST NT ST TAT TANNA OOOO 0 


OOP mR RRR RRR Rr RR RR mR mR RR mm mm mm Om mee Rm ee rer rrr eee 


NMTOOR. Or CUM TN OrR NUM~aTmor. NMTnor NM 


WOKOKuMarNoKo- 
S8S2= 


Orr rr eK KK A 


Walvalvalvalcalaleatvatvavalvalvalcalvalcalcalcalcalcalcatcatcatvatvatvatxal MMMM 


\ lh seed gee gel eel eel peel gel peel gee geal gel sel geal sel peel eel sel sel seal. seal sel geal el sel eel see sel seal see sel cel cel eel eel eel eel see cee see eee cel oe pe ee ee ee ek ek ek ek ek ek eek et 


COOOOSOSOSOSOSSSSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSSOSOSOSOSOSOSSOSOSOSOSOSOSSOSOSSSSSOSOSOSOSSOSOSSO 


FARDARARRARAZS IGS SBSBORERARKLRAR SOVOSHVHBORAKTTSSASRSSSSS 
te ee meee eel see eel el ee ce pe ee ek eR ee ee ee a nS a a N 
COR OR ORR RR RR eR Pe OR Oe me eee mre eee emer r rere errerrerererereece 


“wT 
~ 
» 
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1205 


5 
g 


lelelelelelelelelelelelelelelelelelelcleleleleleleleleleleleloleleleleleloleololelolelelelolelelelelolelolelelele) 
ee ee ee Pe en ee ee 
ee ea ee ce ce ed ce ee a ce ce ce ed ced ee a ce ce ce ce ee ce ce ce ce ec ce le ce ce ce ee ce ce ce ce a ee ee ee ee ee ced 


AMAA MMAA MMI ES EB EEE EER HRE HRS RE RRRRRRERS 


~_—© 
—-ON 


BB 
Bss 
WRI ONOUSWN 
Non — ee cD cD ee eed eed aed aed 
CO9ONNNN NNN SO 
-—"ONAUISWWH-OnN 


Sar er er er er et er br er er er et et 


POMINMINMIMNNINSNNY 
NONININON|NS @ Ss Ss SS Ss SS 
KELELEL 

WW 


CONAUSWN—O OONAUSWN-O 
AADRANIMNIWMIVIUIUI ES BARR RL 


MNrn 
a cael lh can ec el eel ened 


Ey 
ONAUFSWN ONO 


RARAYASS 
WN SO NOAM ESWN-ONAUSWWN-ON 


&N 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NMRNNMNNNNNNNNNNNPNNNNN NP Nn 


RoW 
—-Ov0 


ANISVEALK 


SARESS OOS 





—_ 
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1261 
1262 
1263 


z 


vi 
leleleleleleleleleleleleloleleleole) 


eA it 


N 
Wi 
WIAA AIT 


a ce a ca ae ce ee el a el cd ed cl el el ed 
WN ONOUSWN “ONO WI 


BANE 
ERR ES 


PAPA DAP AAA AIA AIT 
MVMIMMMUIUT BS ES ERR RARE 
NOUSWN -ONAUSBWN—ON 


S 


PELE eR RP RS RE Let det deter 
ze 


DPV IVPVPVIVAV AASV AAAS ITA 
NOUESWN ON 


N 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ss dd nd od od I 


elejlejlelejleleleleleleleleleleleloleoleleleloleleleleleloleleloleolelelelolelolo) 
S 


— td oe = = = = 2 ot eo 2 oe es es es ss 


WIWWNWWNIWAWAGS 
—_ es = 
AunSWr—-oO 


S 





SEQ 0026 


2 
PAGE 27 


ABSSSISSSSRERRRRRR ORK NUMSNOR OR UMN OR OR cum 
- 2 “rw 
DAMMAM MMA AAR IAMMMIMIMMIMMOR CUM APIA OR Oe NOR OR MOOR ARIS 


- 
So 
w 
- 
co 
a 
— 
‘ 


” 
w 
| 
2 
— 
< 
— 
<= 
a 


21 
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FIBRRARRARZ SSIS SSSLCRERERES AM S$seuseseet 
PRRAAARA AS YG GIO SSRERERRRE SSSQssssenseseee 
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SSSgageransnon TMA NON OOM AOR OK UMS NOR OM NON Ono Bg5or 
SSBHOBOOGOOOOOOI GG GGG GGOGOGOOOOSSSSSSSS OOD DOBBS BIVHs OS 
COOOL OOOO OOO OOOO OOOO OOOOOOOO 00000000000 00000000 500060000 
RN Oe A A a a ay a oe a ee ye 


COOOSOSOSOOSOOSOSOSOSOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSSOSOSOSOSSOSSOSSOSSSDO 


Mmmm Mmm 
Se el el el el el ell el el ed el ed el ed el ed bt el ee ee le el ll ee el ll lel el el eel ed el eh el el el 


Oo 
Mmmm 
Cre 


Aina AIA MAMA A MAGA AAA RRA SSS 
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1373 
1374 
1375 
1376 
1377 
1378 
1379 


-BYTE 36 
BYTE 37 


177777 177777 PHRASE: .ASCII <15><12><377><377><377><377> 
252 eASCIZ ‘THE QUICK SILVER GRAY FOX JUMPED OVER 9,876,543,210.0 LAZY DOGS!’ 


SINNNNN 


uns 
MEBAONMEDAONS Wr 


astotawvwa—bahababah aba aad 
ataiatiatatotadeiadatabhat adaad 
™~N 


OOCOOCOCOCCCOCOO CO 


NN 
NN 
ao 


2 
020523 


1 
1 
1 
1 
1 
1 
1 
1 
1 


SERSREReS 
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JIAO IOISIISIDIOISIOIISIIOISIOISISIISIIOIIOIOIOIOIOIOIOIOIOIO IOI IT TOT TOT TOT TTT TE TEI TT TE 
PROGRAM 2: ON-LINE MULTI-ECHO EXERCISER 

: +" ete THE LAST CHARACTER RECEIVED ON ITS RESPECTIVE 
; LINE. _A CARRIAGE RETURN AND LINE FEED ARE INSERTED 

; EVERY 72 CHARACTERS. 


STITT TITIST TIT TCT TTT Te TTT CTT TCT TTT TT TTT TT TTT TTeTTTeTTTTTTT Tire Tete 


PROG2: RESET CLEAR OUT THE WORLD 
MOV ASTACK, SP ;RESET THE STACK POINTER 
177776 #340 a4PS oath ton TO LEVEL 7 
XM FIRST TABLE POINTER 
[LENGTH OF TABLES (WORDS) 
[CLEAR THE TABLE 


LENGTH OF MASK/COUNT TABLE 
SKIP MASK 
CLEAR COUNT 
012046 
012050 
sROUTINE TO INITIALIZE ALL DJ11'S AND THEIR ISR'S: 
:SET UP ALL INTERRUPT VECTOR 
:SET UP DEVICE ADDRESSES IN LINKER ROUTINES 
7SET CSR'S EVERYTHING ENABLED 
7SET TCR'S, ALL LINES ENABLED 


P2INIT: CLR 
MOV 


RO 
DEVADR, R1 
012242 SET UP POINTER TO LINKERS 


1$: R3, Re SET UP RECEIVER INTERUPT VECTOR 
sADD 4 TO R3 
1 sADDRESS OF CSR 
000002 #2 :ADDRESS OF RBUF 


SET UP TRANSMITTER INTERUPT VECTOR 


001272 


001274 


R1 (R3)+  ;ADDRESS OF CSR 
050501 #50501, (R1)*  =SET UP CSR 
:BITO = RECEIVER ENABLE 
‘BIT6 = RECEIVER INTERUPT ENABLE 
:BIT8 = TRANSMITTER SCAN ENABLE 
a te 


BIT 


Nn. 


(Ri)+ 


RO ZUNIT # * 2 
001220 MOV SVSWO(RO),(R1) SET TCR BITS FOR SELECTED LINES 
RO -RESET UNIT COUNTER 
000001 001260 #1 MARK SET UP MARKER 
MOV (R3)+, RG :SET UP OFFSET TO TABLES 
001260 : Mark, (R1) :CHECK FOR LINE SELECTED 


lelejlelelelelela) 
ed ed ed ed ed ed ed ed 
MMINMNMNPNNNY 
Vw" 
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016641 001312 #MSGP2, XMTTAB(4) ;SET UP XMTR TABLE 
000045 004312 MO ih. XMTCNT (4) SET UP COUNT 
INC OFFSET TO NEXT LINE 

001260 

4$ 

ate (R1)+ sADD 4 
001264 RO, UNITS 
900140 #140, aaPS ;LOWER PROCESSOR PRIORITY 

FREER RK KERR REE REE RE KREKKKEREKEEEKEREEKEERKEREEKKK KKK 


[PROG2 FOREGROUND PROGRAM TO READ/WRITE MEMORY 


FRR RRR RRR RRR RIKER EKER ERE KEKE EEK EK 


020000 FORP2: s #20000,RO :TOP OF 4K BANK OF MEMORY 
1$: sFAST READ/WRITE TO MEMORY 
BN 1 RAPID REPEAT 
: 
012240 FORP2 SLOOP FOR EVER 
5 RR BI RH BH eH I I OT TOR IIT TORTI TTR IO RIO KK 


;PROG2 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 


FI RRR KK RRR KE EERE KERR KEE EEK EEE KK 


012242 013034 R2SRO: RO,P2RI 
000000 BT80012sc0#10>>, <0*40> 
RAcens X2SRO: R 


RO,P2x 
<160020+<0*10>>, <0*40> 
013034 R2SR1: RO,P2RISR 
000040 <160012+<1*10>>, <1*40> 
012642 X2SR1: RO,P2xXISR 
000040 } <160020+<1*10>>, <1*40> 
R2SR2: RO,P2RISR 
‘ B1600To222*10>>. <2*40> 
X2SR2: RO,P2XISR 
.WOR <160020+<2*10>>,<2*40> 
R2SR3: RO,P2RISR 
<160012+<3*10>>,<3*40> 
X2SR3: RO,P2XISR 
<160020+<3*10>>,<3*40> 
R2SR4: RO,P2RISR 
<160012+<4*10>>,<4*40> 
X2SR4: RO,P2x 
<160020+<4*10>>,<4*40> 
R2SR5: 0,P2RIS 
<160012+<5*10>>, <5*40> 
X2SR5: P2x 
<160920%<5#10>>, <5*40> 
R2SR6: RO,P2RISR 
<160012+<6*10>>, <6*40> 
RO,P2XISR 


X2SR6: 0, 
< <i $50020+<6#10>>, <6*40> 
R2SR7: RO, P2RIS 
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012426 160102 .WOR min <7*40> 
004037 X2SR7: RO,P2XISR 
; <160020+<7#10>>, <7*40> 
R2SR10: P2RISR 
‘ ROOTS 10#10>>, <10*40> 
x2SR10: RO,P2XISR 
¢ £160020#<10#10>>,<10840> 
R2SR11: RO,P2RISR 
‘ <160012+<11*10>>,<11*40> 
X¥2SR11: 0,P2xI 
<160020+<11*10>>,<11*40> 
R2SR12: RO,P2RISR 
<160012+<12#10>>,<12%40> 


X2SR12: RO,P2XISR 
4 <160020+<12*10>>,<12*40> 

R2SR13: RO,P2RISR 
D <160012+<13*10>>,<13*40> 

X2SR13: RO,P2XISR 
-WORD <160020+<13*10>>,<13*40> 

R2SR14: RO,P2RISR 
D <160012+<14%10>>,<14*40> 

X2SR14: RO.P2XISR 
-WORD <160020+<14*10>>,<14*%40> 

R2SR15: RO,P2RISR 
. WORD <160012#<15*10>>, <15*40> 

X2SR15: RO,P2XISR 
. WORD F1600208215*10>>, <15*40> 

R2SR16: RO,P2RISR 
. <160012+<16#10>>, <16*40> 
X2SR16: ROP. 
5 £1600205216#10>>, <16*40> 

R2SR17: RO,P2RISR 


S 
<160012+<17#10>>, <17*40> 
004037 X2SR17: RO.P2XISR 
160210 4 71600008¢17#10>>, <17*40> 


FREER ERR EERE EEE EEE EERE EERE EERE 


:PROG2 TRANSMITTER INTERRUPT SERVICE ROUTINE 


FERRER RRR EEE REE E REE EKRERERREEERER KEE EREEE ERE R ERE 


P2XISR: 
010146 MOV ;PUSH R1 ON STACK 
PUSH R2 ON STACK 


1$: ‘et? CHECK FOR TRANS READY 
aget) ie GET LINE NO. 


(RO) ,R2 
XMTCNT (2) pth FOR ZERO 
2$ T OUT 


@XMTTAB(2) ,6(R1); : SEND A CHARACTER 

XMTCNT (2) COUNT CHARACTERS 

CNT TAB(2) >CHECK FOR E> gus OR DATA 
12 [BRANCH IF DAT 

XMTTAB(2) UPDATE TABLE POINTER 


ANIM ISAS AAA ADB LAS 


rs 


KREKFLKFF 


ANEW —OODNAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
: 
1 
1 
1 
1 
: 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 


MUOAMMAVIUITV) 
YOAWMMMATY) 
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012716 1$ 
2$: OMB CNTTAB(2) 3 CHANGE oe ce 


“BRANCH IF WAS DAT 
#RCVTAB, AMTTAB(QS : SE SET aa POINTER to RECEIVER TABLE 
#7e., NMTENT (SD. £C0 «COUNT 72. CHARACTERS TO THE LINE 
CVTAB(2) HECK FOR A BREAK 

“BRANCH IF REAL DATA 

:RECOVER LINE NUMBER 


R 
001260 ;SET UP MARKER 
001260 : :MOVE MARKER 


SASSER 


NNWVO 


BP 5$ “BRAN 
001260 000004 a “ CLEAR TCR BIT 


TINUE 
016434 001312 : #RETURN, XMTTAB(25 : TYPE CARRIAGE RETURN, LINE FEED 
000002 004312 an #ee XMTCNT(2) : COUNTER OF 2 CHARACTERS 


MVIVIMVIVIYVT 
N 


VUIYIVI 
SIaVAA 


(6)+,R2 POP STACK INTO R2 
:POP STACK INTO R1 
;POP STACK INTO RO 


63 60 6 


SEERA RARER REE EERE EERE EERE EERE EERE 


sPROG2 RECEIVER INTERRUPT SERVICE ROUTINE 


FREER RRR E RR EERERRE EERE EREREREREEERE REE 


P2RISR: 
:PUSH R1 ON STACK 


SSELRAR 


000 


TA 
7$ ;BRANCH IF NO CHAR PRESENT 
#70000 Re = CHECK FOR ERRORS 
2$ CH _IF OK 


RECEIVER ERROR 
RBUF 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
15 
5 
5 
5 


SVSVH3E 


000771 “FORGET THE DATA 


010203 : DUP THE RBUF 
R3 CLEAR THE DATA 
ZLINE * TO LOW BYTE 
LINE # * ee ALSO CLR CHAR PRESENT 
‘ADD OF F SET 
Secu Ee LENGTH 


: CHARACTER ay De ERROR 
;R1=RBUF ADDRES 
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~~ 
oO 
—_ 
wW 


apg eg OF RBUF (DATA) 
002312 3$: RCVTAB(3) CHECK FOR BREAK 
5 REAL DATA 


“BRANCH IF 
002312 R2 RCVTAB(3) ;SAVE THE DATA 
UB (5). R3 sRECOVER LINE NUMBER 


001260 SET UP MARKER 


001260 : UPDATE MARKER 
COUNT LINES 

4$ ;BRANCH IF MORE 

001260 000002 2(R1) = SET TCR BIT 
BR 1$ CONT INUE 


3 PS SP YS YD SS SS 
BRRVSSLLAS 
—— 4 YS YI 

WN =GODNAOE 
ooo 


RE 
Sh 
SOCOCCOoO COCOCOCCCOO 


002312 : Re, RCVTAB(3) ive THE or 

005313 CNTTAB(3) SSAGE FLAG 

016434 001312 #HRETURN, XMTTAB(35 « TYPE CARRIAGE RETURN, LINE FEED 
000002 004312 - *¢° XMTCNT(3) ;MESSAGE LENGTH 


pe or 
WANNA WNWWNNWNNNWWNWW 
abba Dab ad ab aed ach al aed ok aed od od 
~N vw SS Wrnn- 


Ww 
=d od 
Nw 
aon 


(6)+,R3 :POP STACK INTO R3 
(6)+,R2 ;POP STACK INTO R2 
(6)+,R1 POP STACK INTO R1 
(6)+,RO :POP STACK INTO RO 
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FEAR RRA ERE EERE EKER ERE EERE 


;PROGRAM 3: ECHO EXERCISER 


FERRARA EERE REE EERE REE EERE EEE EERE KERR REE 


PROG3: RESET ;CLEAR OUT THE WORLD 
MOV AMSTACK, SP RESET THE STACK POINTER 
177776 #3 a¥PsS : PROCESSOR TO LEVEL 7 
XMTTAB,R FIRST TABLE POINTER 
[LENGTH CF TABLES (WORDS) 
CLEAR THE TABLE 


er 4 MASK/COUNT TABLE 
;CLEAR COUNT 


BN’ 2 
012705 016770 SET UP BUFFER POINTER 


= ROUTINE TO INITIALIZE ALL DJ11°S AND THEIR ISR'S: 
SET UP ALL INTERRUPT VECTORS 

7SET UP DEVICE ADDRESSES IN LINKER ROUTINES 

:StT CSR*S EVERYTHING ENABLED 

SET TCR'S, ALL LINES ENABLED 


P3INIT: CLR 
MOV 


013562 3SRO,R3 SET UP POINTER TO LINKERS 
001272 1$: R3, 2 SET UP RECEIVER INTERUPT VECTOR 


sADD 4 TO R3 
R sADDRESS OF CSR 
000002 ADD #2 sADDRESS OF RBUF 
SET UP TRANSMITTER INTERUPT VECTOR 


001274 


R1 ZADDRESS OF CSR 
050400 #50400, (R1)+ :SE CSR, TRANSMITTER ONLY 


8 


(R1)+ 
RC 
See 


SESSSELE 
geese 


elelelelelelelelelelele) 


mt ad ah od ed a wd od eh ed ed od 
WWAAWANINAIAWNAWAW 
SREGELS 


6 
Rl, XMTTAB(4) 
RS, RCVTAB(4) 


a9 
ANNO 
oo 
-~-— 
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1694 001262 ore’ R 
1695 016707 MMSGPS, R 
1696 
1697 
1698 
1699 
1700 
1701 


oO 
«i 
¥ 
oO 
~ 


R 

: uP GE POINTER 

3$: MOVB (R3)+, (R5)+  ;MOVE MESSAGE INTO BUFFER 
5$ BRANCH IF END OF MESSAGE 
R2 COUNT BUFFER SIZE 
3$ ;BRANCH IF MORE 


6$ ;BRANCH IF DONE 

(R5)+ :CLEAR REST OF BUFFER 

R2 COUNT BUFFER SIZE 

4$ ;BRANCH IF MORE 
003312 : R5 ,MAXTAB(4) SETUP BFR POINTER TABLE. 
onze (R4)+ : INC OFFSET TO NEXT LINE 


3 
Nm 
KER EEE EL ER ES 


SENSRRVSS RVR 


£ 


;POP STACK INTO R3 
;POP STACK INTO R2 
;ADD 4 


. 


SELEGES 
NONE W 
elejelelelelelelelelelelelelelelolololo) 


a eed eed ed 


FECKERSE 
RVFINSS 


177776 avs sLOWER PROCESSOR PRIORITY 


SSAA AERA AAAREEARAARAERAERRAEREREREEAAEREEEEERRREKHTEEE EE 


[PROG3 FOREGROUND PROGRAM TO START RECEIVERS, THEN EXERCISE MEMORY. 


PRA AAA AREER EREERERARERAAAEA REAR EREEERAEREEREREREERERREEEES 


RORY 3 Ss SS St SY 


FORP3: ee ade 
1$: CHECK FOR XMTR TABLE CLR 
BNE $ BRANCH IF NOT 
:GO TO yo ENTRY 
MORE LINES 


IT COUNTER 
ADDRESS POINTER 


Nairn» yy YI 


N 
MEWN $0 ODMNOUSWNO 


yy 


NNNN 
BOVE 


#101, (R1) 


é EIVER ENABL 
;BIT6 = RCV INTERRUPT ENABLE 
° R1 UPDATE TO NEXT Dull 
RO ; COUNT DJ11°S 


2$ 
#20000 ,RO :TOP OF 4K BANK OF MEMORY 


-(RO) FAST READ/WRITE TO MEMORY 
1$ ;RAPID REPEAT 

RO 
1$ 

MEMX 3 

RARER HAAEARAORAERAAARAAERAREAHREHHEREEREHRHEEREREERERRRRERRER EEA eeneee 


[PROG3 LINKERS TO DJ11 INTERRUPT SERVICE ROUTINES 


LPT AAA AHHH ERAAFERHAAHRATEEEEHHHTRHRRHEReKeReHeteeeeeeenaneeenettenenes 


R3SRO: JSR RO,P3RISR 
2 <*40012¢<0210>>,<0940> 
K3SRO: JSR RO,PSKISR 


wuss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


~N 
RPRRRRS 
MEWN-00 
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21-JUN-78 13:56 
. <160020+<0*#10>>,<0*40> 
R3SR1: NO Dani sA 
<160012+<1#10>>,<1*40> 
X3SR1: RO,P3X 
<160020+<1#10>>,<1#40> 
R3SR2: 
<160012+<2#10>>,<2*40> 
x3SR2: RO,P3XIS 
<160020+<2#10>>,<2#40> 
R3SR3: RO,PSRISR 
<160012+<3#10>>,<3#40> 
X3SR3: RO,P3XISR 
<160020+<3#10>>, <3*40> 
R3SR4: RO,P 
<160012+<4#10>>, <4*40> 
x3SR4: RO,P3XISR 
<160020+<4#10>>,<4*40> 
R3SR5: RO,P 
<160012+<5#10>>,<5*40> 
X3SR5: RO.P3XIS 
<160020+<5*#10>>,<5#40> 
R3SR6: ROP 
<160012+<6*10>>,<6*40> 
X3SR6: RO.P 
<160020+<6#10>>, <6#40> 
R3SR7: RO,P 
<160012+<7#10>>,<7*40> 
X3SR7: eP3XISR 
. <160020+<7#10>>, <7*40> 
R3SR10: RO onde 
J <160012+<10*10>>,<10*40> 
x3SR10: RO, P3XISR 
. <160020+<10#10>>,<10*40> 
R3SR11: RO,P3RI 
s <160012+<11#10>>,<11*40> 
x3SR11: RO,P3XISR 
‘ <160020+<11#10>>,<11*40> 
R3SR12: RO,P. | 
‘ <160012+<12*10>>,<12*40> 
x3SR12: RO.P3XISR 
¢ <160020+<12#10>>, <12#40> 
R3SR13: RO,.P 
. <1 12¢<13#10>>,<13*40> 
X3SR13: RO,P | 
. <1 #<13#10>>,<13*40> 
R3SR14: RO.P 
' <1 12¢<14#10>>,<14*40> 
X3SR14: RO,P3X 
<1 +<14210>>,<14*40> 
R3SR15: RO,P be 
‘ <16001 #<15#10>>,<15%40> 
x3SR15: RO.PSXISR 
a <1 #<15#10>>,<15#40> 
R3SR16: RO,P } R 
" <;4001 #<16#10>>,<16#40> 
X3SR16: RO,PSXISR 


WWII 
ae 


font oa valvaleal al 
SSSR 
— 


wh 
232 
-—-O— 
soe 
Www 

SRS 


— es es st et os SY Ls 


NNN NS SINS 
VEAL 


oO 
— 
x 


oO 
= 
* 


—fOLk— 
MmONMOry 


wie 
SRB RENO 
[32 = 


g23 


Ss 

Oo 

S% 

jeleleleleleleleleleleleleleleolelelelelo) 

a el ee et ee el ee ee ed eld eed el eed 
WWW 

S38 

NM 

SRS 


oo 
=i ad 
SSS 
No 
RO 


Seen eaene 
2 —s — — 
SOLOS Os 
—BRwERoFw 
SNSRSNS 


8 


S28e85 
— —_ ws 
soskoe 


ROR S SESS RR TESS AS ANAS IS Ja oN ANS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


S 
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160200 000700 .WORD <160020+<16*10>>,<16*40> 
004037 014312 R3SR17: JSR 0,P3RISR 
160202 900740 ,WORD << 1600124#<17#10>>, <17#40> 
004037 014162 X3SR17: JSR RO,P3XISR 

160210 000740 “WORD <160020+<17#10>>,<17#40> 


SAAR AREA REAR AERA EEE REAR RRR EREEEEEEREE ERE REE 


[PROG3 TRANSMITTER INTERRUPT SERVICE ROUTINE 


FERRARA AREER AREER AEE AE ER ERE RERERRRREERREREE REE REE 


BBS 


P3XISR: 
MOV ;PUSH R1 ON STACK 
tad ;PUSH R2 ON STACK 
1$: mY ; CHECK FOR TRANS READY 


GET LINE NO. 


00 0009 090 G0 00 C0 09 C0 CO 
ee ed ed ed od ed 
OWOONAOULSWNH—O 


— ts YS YY YY I 
RNSERRK 


USWA 
3S 
Nm 


RERERER 
z 


(RO 
oT TAB (2). 6(R1);SEND A CHARACTER 
@XMTTAB(2) :CLR TABL 


XMTTAB(2) UPDATE TER 
MAXTAB(2), xMTTABID)- :CHECK FOR END OF BUFFER 
5$ BRANCH IF NOT 
BUF S12, TTAB 2) ESET BUFFER POINTER 
@XMT TAB(2) x ext CHARACTER 

‘SR IF MORE DATA 


:CLEAR TABLE POINTER 


lelelelelelelelelelelelelo) 
bab tad abatat dat abadad af 
BREE KRRRRRES 


elated aed trata 
2 
SAAN 
Saw 


Oo 
Ww 


P sche TCR BIT FOR LINE 
x etme RESTORE R3 


SRESEES 


S 


(6)+,R2 POP STACK INTO R2 
(6)+,R1 POP STACK INTO R1 
(6) +,RO :POP STACK INTO RO 


RRR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0000 
vw 
-OO0mOn 


FARRAR AAA EERE REE EAREA RARER AEEERA RARER ERE 


;PROG3 RECEIVER INTERRUPT SERVICE ROUTINE 


FAA AERA AERA EERE REAR RERERETA ERE 


P3RISR: 
MOV ;PUSH R1 ON STACK 


GE ES 
(Ri) »R2 [READ THE DATA 
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1862 00077 8$ sBRANCH IF NO CHAR PRESENT 
0 070000 | aaa < SRANCH $7 - 


;RECEIVER ERROR 


Nad oeUnoke. 


al aed al ct cael cal el el ad cad 
N 
WN 


0000 0000 


; THE RBUF 

>CLEAR THE DATA 

;LINE # TO_LOW BYTE 

sLINE # * 2, ALSO CLR CHAR PRESENT 

. ADD OFFSET 

MASK (4) .R2 [CHECK CHARACTER LENGTH 
3$ BRANCH _IF OK 

oad as LENGTH ERROR 

;R1=RBUF ADDRESS 

;R2=CONTENTS OF RBUF (DATA) 
ee ; CHECK $1 UNSELECTED LINE 


BNE BRANCH IF OK 
014372 ;RECEIVED DATA ON UNSELECTED LINE 
;R1 = RBUF ADDRESS 


ee ed oe 2) od 2d od 
Egeeeaae 
—_ BONAAR 


7 


882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 


014374 1$ 3] DATA 
@RCVTAB(4) CHECK FOR DATA BUFFER FULL 
5$ BRANCH IF 


OK 
Ho Ah ay | DATA BUFFER OVERFLOW 
ipa SIBLE TRANSMITTER PROBLEM 


= RBUF ADDRESS 
R2 = CONTENTS OF RBUF 
IF THE ABOVE ERROR WAS DUE TO OVERLOAD, INCREASING THE CONTENTS 
OF "BUFSIZ'* MAY RECTIFY THE PROBLEM. 
BUF SIZ** MUST BE A MULTIPLE OF 2. 
; INCREASING IT MAY CAUSE THE BUFFERS TO OVERFLOW 4k. 
014406 013210 JMP PROG3 RESTART ON THIS TYPE ERROR 


014412 : XMTTAB(4) CHECK FOR TRANSMITTER ACTIVE 
6 BRANCH IF INACTIVE 
R2, @RCVTAB(4) ;PUT THE DATA IN THE BUFFER 
RCVTAB(4) ; UPDATE Age ihy TO NEXT SPACE 
> - etal -RCVTAB(4) ;CHECK FOR END OF BUFFER 


;BRANCH IF NOT 
OF SIZ. -RCVTAB(4) ;RESET BUFFER POINTER 


MAXTAB(4) ,RCVTAB(4) ;RESET TABLE POINTER 
BUF S1Z,RCVTAB(4) ;RESET BUFFER 
RCVTAB (4) XMTT4B(4) 
2 Re, @RCVTAB(4) 
002312 RCVTAB(e) ;UPDATE POINTER TO NEXT SPACE 
UB (RO) .Ré 


R3 
R3 


38 


Be SR SSeS SSS ESeSE 


Oo 
= 


ak kk a dk ed kd I 2 nd ot od 2 od 
me ed ed eed eed 
NOUSBWMN oO 


wOwOo00000 
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1918 014514 005 DEC R4 

1919 014516 100375 BPL 7$ 

920 014520 050361 900002 BIS R3,2(R1) SET TCR BIT FOR LINE 
1921 014524 000677 BR 1$ 

1922 014526 8$: 

1923 014526 2604 MOV (6)+,R4 sPOP STACK INTO R4 
1924 014530 012603 MOV (6) +,R3 :POP STACK INTO R3 
1925 014532 012602 MOV (6)+,R2 . POP STACK INTO R2 
1926 014534 012601 MOV (6)+,R1 POP STACK INTO R1 
1927 014536 012600 MOV (6)+,RO :POP STACK INTO RO 
1928 014540 000002 RTI 

1929 014542 DONE : 

1930 014542 004737 016310 JSR PC, KBDINT 

1931 014546 062737 000001 001206 ADD #1 ,PCNT+2 :ADD 1 TO THE PASS COUNT 
1932 014554 005537 001204 ADC PCNT ;MAKE IT DOUBLE PREC. 
1933 014560 000004 016403 TYPE -MEOP END OF PASS < eaten 
1934 014564 032777 002000 164416 BIT #SW10,aSWR sRING THE BELL 

1935 014572 001004 BNE 4$ :NO! 

1936 014574 000004 000007 TYPE -BELL RING THE BELL 

1937 014600 000004 000177 TYPE ,177 : TYPE A FILLER FOR 11/05 
19 4604 013700 000042 4$: MOV a#42,RO 7GET MONITOR ADDRESS 
1939 014610 001405 BEQ 3$ :1F NONE 

1940 014612 000005 RESET RESET AND 

1941 014614 SENDAD =_. 

1942 014614 004710 JSR 7,(0) :GO TO MONITOR 


1943 014616 000240 NOP s SAVE ROOM 
1944 :FOR 

1945 014622 000240 NOP 3ACT11 

Hb 3 014624 000137 007310 3: JMP RESTAR ;RETURN 
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: $SHLT ERROR TYPEOUT HANDLER 


sTHIS ROUTINE PRINTS OUT ERROR MESSAGES STARTING WITH THE 

ADDRESS OF THE ‘HLT’'. IT ALSO COUNTS THE NUMBER OF ERRORS 

: AND HAS THE CAPABILITY A ait ryetount ey BELL ON ERROR, 
T’’ ON ERROR, AND_INH TYPEOUTS. AN OPTIONAL ARGUEMENT 

> (HLT+3) WILL BE PLACED INT MLTCTS: FOR ADITIONAL TYPEOUTS. 


016310 EMTS: SR C, KBD INT 
002000 B #10, aS 


000007 -BELL ; BELL 
001202 1$: ERRORS ;COUNT THE NUMBER OF ERRORS 
020000 #SW13,aSWR SKIP TYPEOUT IF SET 

BNE 2s SKIP TY et od 
014670 22%2 3; ASCIZ <15><12> 
014760 MO (6) ,HLTADR :PUT ADDRESS “OF INSTRUCTION ON STACK 
000002 #2,HLTADR HA a Pe RESS 
000046 @HLTADR,HLTCTS GET HLT ARGUEMENT 
014760 HLTADR, TTY 7 TYPE HLTADR-IN OCTAL 
015366 PC ,PRINTR : TYPE LEADING ZERO'S 
014730 ASCIZ ' 


,.42 
014762 PC ,ERROR$ 360 TO USER ERROR ROUTINE 
164244 : aSWR T ON ERROR 

+4 SKIP IF CONTINUE 


;HALT ON ERROR! 
016310 PC ,KBDINT 
014754 ;RETURN 


014756 HLTCTS$: HLT ARGUEMENT 
014760 HL TADR: LAST HLT INSTRUCTION EXECUTED 


014762 0077 ERROR$: BIC #7700, 2% 
0 0 6 1$: D Medi 


#100, 2$ 
%0,TTY 
%7,PRINTR 
SPACE 


USWh—OO0 


9 el cael a a cell cal cl cl cl cn cls ct all cp el cl 
won 


BREZESSSSSSSSSSEP 


see: 


1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 


TYPE REGISTER X IN OCTAL 


SESPERELEES 


35 


0615020 





B 4 
CZDJBFO DJ11 EXER & ONLNE MACY11 —_— At neat 14:01 PAGE 41 
CZ2DJBF .P11 21-JUN-78 13:56 AL NUMBER INPUT ROUTINE — 


; SUBROUTINE TO SAVE INPUT AS OCTAL NUMBER 


015022 000001 015314 READIN: MOV #1, INHRE 
1 737 015170 JSR ee :GO READ TTY UNTIL CR 


015314 
PUSH R1 ON STACK 
sPUSH R2 ON STACK 
;PUSH R3 ON STACK 


sseiaiaaai 


000020 016206 
015316 
000120 


#INPUT ,R 
cha CHECK FOR *P** 


(R1) 
: (R2)+,R3 

000015 MPR eR3, #15 

3$ :BRANCH WHEN DONE 
000060 #60,R3 
177770 #177770,R3 

3$ 

(R1) 


2$ 
(R1) 
$ 


;BRANCH IF BAD DATA 


016206 


2$: MAKE SURE Z-BIT IS CLR 
177776 015166 : PSTEMP :SAVE CONDITION CODES 
6)+,R3 :POP STACK INTO R3 
POP STACK fore - 
POP STACK IN 
015166 177776 PSTEMP, a4PsS RESTORE COND TION CODES 


; TEMPORARY STORAGE FOR PS 

R3,~(6) sSAVE R3 
015316 1$: MO #INPUT ,R3 GET ADDRESS 
015336 ; #INPUT+20,R3 BUFFER FULL? 

E 4 sves = 10 7 

177560 “ 77560 WA] 
177562 177562, (3) 
000200 4590. (3) 
000177 MPB 71S IT A RUBOUT 

4S. SKIP IF NOT 
000025 


WIWWW 


8 


015242 , ‘. ;.ASCIZ *'?''<15><12>"'= *' 
BR :ZAP THE BUFFER AND LOOP 
016124 : >SET UP FOR TYPING 
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016124 sECHO IT 
000015 : CHECK FOR RETURN 
;LOOP IF NOT RETURN 
015314 


BR 6$ 
177777 5$: ; ZAP_RETURN ye 15) 
000012 6$: ele : TYPE A LINE FEED 
MOV RESTOR RE R3 
; RETURN 


INHRE: O 
INPUT: . 20 Y INPUT AREA 
: SOCTAL OCTAL TYPEOUT ROUT INE 
:THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TTY. IT WILL TYPE 
;ALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, TYPE AN 18 BIT ADDRESS, OR ive 
;THE 16 BITS. IT is CALLED VIA THE DUMP, SDUMP, DUMP18, OR BITYPE MACRO'S 
170101 015524 BITYP$: MOV or srr of FLAG ANS 16. CHARACTER COUNT 
PTIT ‘NOW T YPE IT IN BIT FORM 
000001 015524 PRINTR: a Vee i FILL SWITCH 
015524 PRINTS: CLR “PR : SUPRESS LEADING ZERO'S 
177772 015525 VB 4 ;SET COUNT 
oPTITs R4,-(6) ZSAVE R4 
015526 MO " :SET POINTER TO FIRST ASCII CHAR. 
) IRST BYTE 
-PRL: 
000100 015524 
:ROTATE BIT INTO C 
*ROTATE BIT INTO C 
sPACK IT 
ROTATE BIT INTO C 
PACK IT 
71S YY ZERO? 
KIP INC 
SET FILL SWITCH 
sCHECK FILL SWITCH 


: SKIP BITSET 
MAKE INTO ASCII CHAR 
C_ COUNT 


SaRSESSEERERE 


w 
SINGS 
NS 


PRL 
#. sore RS 
#0, (4)+ 
(4) 

-PR+2 


&RS 


:NULL TERMINATOR 
+, R4 “RESTORE RG 
RETURN 
FS *COUNT, SWITCH, AND OUTPUT BUFFER 


ODOOCOOCOOSooO 
pr Pow Pew Per Pow Poe Per Pe Pe Pe Pe 
MAMA AIT Vv 
MAMA AIUT 
MmNMn-— 

SNMOFNM 
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012777 015676 000126 PDOWNS: SET FOR FAST UP 
000340 3PRIO:7 
;PUSH RO ON STACK 


nmr 


000122 


“PUSH RS ON STACK 
015702 SP 


2 SAVE 
015604 015614 000072 #PUP$,9PUVECS SET UP VECTOR 
015612 000000 [WAIT FOR PF 


015614 015702 ; . SAVR6 , SP GET SP 
R1 ;WAIT LOOP FOR THE TTY 
io wae THE INC 


; OF D 
:POP STACK INTO R5 


el th a et ce ca ca cl ei ai old ct cet etd eth ch cent cet ca cnt cnt cael cad 
cae al ca a a aed a oe ced ed 
VVSSBNRARWVISSRIKARALLS z 


POMINPIMPYNINNNININGNYNININININNPoNfonony 


015550 000024 


000026 
000004 . PASti? <15><12>" POWER’ ' 
015672 007310 ;JMP TO USER ADDRESS 


015676 000000 ILLUP: 3 THE POWER UP SEQUENCE WAS STARTED 
015700 BR . ; BEFORE THE POWER DOWN WAS COMPLETE 


015702 0000 .SAVR6: 0 PUT THE SP HERE 
015704 000026 PUVEC$: 24, :POWER UP VECTOR 


015710 YESRT: sRETURN FROM TRACE TRAP 





E 4 
CZDJBFO DJ11 EXER & ONLNE MACY11 30A(1052) 21-JUN-78 14:01 PAGE 44 
CZ2DJBF .P11 21-JUN-78 13:56 I0T HANDLER 


FAH EREREERRREREERERRREREREKEREREERKREEKEKEEEEEEEEEEKREEREEEEEKK 


107 HANDLER = REENTERENT ROUTINE TO a gal : FALSE 
INTERRUPT OR TRAP, OR TO TYPE A MESSAGE 


UTTITITITISIIITITITITI TILE TITTLITTT LITTLE LTT TTT LE LLL ELE ELLE ELL 
015712 022716 IOTRAP: CMP #1000, (SP) ; CHECK oe ADDRESS 
BLT 10T$ CH IF TYPE COMMAND 
#4 (SP) :GE1 VECTOR UIDBRESS 
.+ YPE MESSAGE 
054105 7 24$><12>" UNEXPECTED INTERUPT TO ‘' 


nononroronefenofononelrv 


020124 047524 


(SP)+,TTY 3; TYPE (SP)+ IN OCTAL 

015376 PC,PRINTS SAND Nan LEADING ZERO'S 
(SP) + POP § 

015776 +2 : TYPE MESSAGE 

047522 020115 ° ** FROM '' 


(SP) ,TTY TYPE (SP) IN OCTAL 
015376 PC,PRINTS SAND SUPRESS LEADING ZERO'S 
FATAL ERROR 
[CONTINUE IF DESIRED 


MESSAGE TYPEOUT ROUTINE 


;THIS ROUTINE IS USE TO_TYPE ASCII MESSAGES ON THE TTY. THE 
[CALL CAN BE IN ONE OF 3 FORMS: 1) ‘'TYPE ADR” ~ TYPES” THE 
MESSAGE STARTING IN LOCATION “‘ADR:"' ~CHAR'’ - TYPES 
:THE ASCII ‘CHAR’, AND 3) ‘PRINT pr Pe MESSAGE S = TYPES 
:THE MESSAGE WHICH IS INLINE ASCII. 


IOT$: TTY, th. 3 SAVE TTY 
000002 MOV a2(6 GET ADDRESS TO BE TYPED 
177400 #77400, tty :IS IT A TYPEM? 


:NO 
016124 TTY,. TYPE :GET THE CHARACTER 
016124 MOV #.TYPE,TTY :FUDGE THE ADDRESS 
: (TTY) ; TERMINATOR? 
2$ >GET OUT IF SO 
177566 MOVB (TTY) +,@4177566 ;LOAD AND TYPE THE aa 
177564 @4177564 21S THE PRINTER READ 


BR 1$ : 
000002 2$: @2(6) ,-(6) ; DRE 
000002 000004 #2,4(6) ;ADD 2 TO_THE ADDRESS 
000002 MP 31S IY .*2? 


000002 “ADD 2 Pn THE ADDRESS 

000001 Y ;BACK TO AN EVEN BYTE 
000002 T RESTORE ia 
: RESTORE T 


URN 


SSERE 


2 
214 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
e 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


elelelelelelelelelelele) S 
RS 
~ 


ron 
NORO 
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2191 016124 . TYPE: ; CHARACTER TYPE LOCATION 
016126 000176 001210 CNTLU: a _ 
016220 
000176 


Nm 

— 
00 
Wr 


, SWREQ 
SWREG, TTY : TYPE SWREG IN OCTAL 
PC,PRINTR ; TYPE LEADING ZERO'S 


eNEWIS 
015022 RS ,READIN 
-WORD TMP1 
CNTLU 
000020 016206 MP ead 


016356 163004 a 


Mononorenenoenr 
pee ee ee ee 
BELFSR 


042516 036527 2 . os NEW= ef 
053523 036522 ae Sette ae’ 


000006 : 6,-(SP) 

000004 MO 4,-(SP) 

016260 0 #1$,4 

177777 #~1 ,@SWR 
$ 


33 

: (SP) +, ey 
000176 : #SWR EG, SwWR 

00017 #DISPREG, »DISPLAY 
(SP)+,6 

PC 


+ ia 
016356 TMP 1 
177562 177562, TMP 1 
000200 #200, TMP1 
000007 MPB re 


BN 
016126 PC,CNTLU 
016354 1$: PC 


016356 TMP 1: 

6360 047516 042040 TRNERR: .ASCIZ <15><12>'NO DATA RECEIVED'' 
6366 020101 042522 

6374 053111 042105 

6402 

6403 


042412 050117 MEOP: .ASCIZ <15><12>" FOP" 


01 
01 
01 
01 
01 
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CZDJBFO DJ11 EXER & ONLNE MACY11 30A(1052)_ 21- 
TYPE ROUTINE 


CZDJBF .P11 21-JUN-78 13:56 


000040 MNUM: = .ASCIZ 
046105 041505 : .ASCIZ ** SELECT LINE = °' 
042516 


tio-— = 
mwsL-oO 


000377 i « <15><12><377><377><377> 
055103 Ni <15><12><377>''CZDJB-F-0 DJ11 EXER & ONLNE"' 
c 


el ed ed ed od 


ord lelelelelelelelelelele) 
AASSSELESSE LFF 


cc 
RESNGGKS 


<15><12>'FIRST DJ11 ADDRESS: ‘' 


MSGVEC: . <15><12>'VECTOR ADDRESS: "' 
020072 
020056 MSGNUM: .ASCIZ <15><12>'NO. OF DU11'S: “' 
030512 
020040 


047522 MSGPRG: .ASCIZ <15><12>'PROGRAM #: ‘' 
021440 


042040 MSGO1: .ASCIZ <15><12>'NO DJ11'S!"' 
020523 


8 


MSGP2: .ASCIZ <15><12>"PROG2: CONTINUOUS ECHO EXERCISER''<15><12> 


o=— 


MSGP3: .ASCIZ <15><12>"'*ECHO TEST*®''<15><12> 


Oo Oo 
SR SRRAGRS 
VMN UW—nhN— 
—_ [NOON =O 
tS Sf eS 
WEUANWUIO ROUNONNNU 


MSGDAS: .ASCIZ ‘* = "" 
MALARM: .ASCIZ <15><12>'’SILO ALARM LEVEL FOR CSR''<15><12> 


- 


016762 000012 


016770 
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011230 
007270 
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826 11034 
722 7384 
96 
811 
1960 


907* 912s 


905 908 
789 1418 


22954 


1865 1879 


914s 


911 
1665 


1884 


915* 


927 
1728 


1890 


916* 
937 


104e 


SEQ 0046 





22 
RAE RT sah tae 
eer err CucuccCCT 


CECE ee AINA 


BISESDSTISSABIAIIS 


ren ener e—tonrurotanune 


Cth cel cel eel ce cell cell cell cell cet ool oe oo oo oe oe oe ed 


RGA Roath tetera 23233 


DAS MTU 0 
RIRSOTSAMIARS 


tell, cell cll, cell col cee ceed cell cell cel oo ool oe oe oe ee oe oe ed 


State Oe SABES 
Sa ISSm SA SAR Pre 
Ce oe ol pant “AAD Ahh: men 


SO cc 


BRSASTINSAISAII® 
NTNOR OOM TNR. CO 
| ol ooh ol ol oe ed BY OOO at ae) 


TE CECH RANA 


SENAS= SF RSA SEGAS= INS 
NMAORAS Ae ADO or 
FCCC OA me 


i er 


RET SLSIBRSASTSESABTS 
Aman sn DWDAOVUM TH 
SE NU KUIRKUIRKU NICU CUMMMMmmm 


Cel cel cee cell sell cool, ceed ceed, cool cel cel ooo ool oe oo ek ek eo 


TSSABRAATTSASTAS® 
es oree tararatoraerate mm me 


Cet cell et cel eel cee cell cell, ell cel cell ceed cell cel eee oe oe oe oe oo 


ABISASTSILSAZIAASTSSS 


4 
PAGE 49 


I 


14:01 


NM Tt OR. OO—UTNHORAO-M 
NOU CUCU KUCUCUCUMM mS 


ce er 


-JUN-78 


aR SR oak edie oe cent 
MMT OR. DO — CUMIN OR 
Se NU CUKURUOUNUNUCUM Mae 


SOS Ee ANNAAINAIMMMM MM 


rINSMSRAAS= SR 
NIKKI CUCUCU CUM 


i 


SMSANADH SROMOAAAS TSN 
RM FARBAK AMR OR DOK NG 2 —NuOORCU 
NU DUIKU FUCK TUM MMMM MCU — IO 


SF FCS ESS MK COOK RK TY Ne 


21 


Ww 
g 
> 
a) 
a 
w 
Ww 
| 
é 
i 
w 
g 
i 
w 
v 
2 
w 
a 
ww 
“u 
ws 
[e 
wn” 
Ww 
oO 
e 
ras) 


MACY11 30A(1052) 


=x Nisa 
WR. OO CON fame e Ss | KRNO 
INCU row 


-r Soran otelatolataletennmenenaina 


SIRTSESARIGASASLSAZOF Ao 
mr N oO 
th w 
= 


-JUN-78 13:56 


P11 21 
001260 


MALARM 016733 


CZDJBFO DJ11 EXER & ONLNE 


CZ2DJBF 


MARK 
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P2INIT 012052 
P2RISR 013034 


P2XISR 012642 


P3INIT 013262 
P3RISR 014312 


P3XISR 014162 


RCVCNT= 004313 
RCVISR 011106 


001272 
002312 88 6 1693* 
1904 


015022 
015170 
70 


007310 
016434 


1488 1492 1508 
1510 


WNRON 
O@oo 


1783 
1785 


_~— — — —_—_~ — 
OBDBONCON USS 
MmMOWWMOW! 
VINOD IWIN 
—_—_ — =o = —_— — od 
CONON WSUS 
OuMOWM ~WOOWOO 
oNNY SMNMO 


985 


oO 
—_ 
Oo 
WW 
N 
Nm 


0412 
05 
06 
0632 
06 
06 
07 
07 
07 
04 
04 
04 
2 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


ms ee et od J 
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R3SR11 


1644 
905* 906 907 908* 909 911* 912 


1439 1684 


832 921 1934 1958 1962 1972 2193 2204* 
2229 


2234 22398 


04 
2242a 
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646 64 648 651 654 7 877 923 
3 1960 1964 1970 2096 2124 
665 684 734 1727 
1419 1666 


1030* 1446* 1562* 1575* 
971 975 983 987 991 


1034* 1560* 
1826* 1834* 


— N 
Nm 

wW 

LS 

& 


Ory 
N 

ee 

NM 

z 


WEEKHKRHRHRH 
wed ae ad a ee cee ee ee a ee ee a ce ce eh et el ei ed a ee ee en el et eed ec 


ao Tees asa So oe eee 


Ritch Re wees to 
we PRLRV LLL LLVLse 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


NMIWNVIW = SIUIW = NI NIN NU Ww-NVWI 


PMOMOMPGNINNNNINONNIMNNNNoNy 
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X3SR5 013712 
3SR6 13732 


4974 S00# 5444 5464 5494 5514 5544 13884 
1928 203 2043 20584 2068 
-BIT = 132000 4 395 396 398 399 400 40 0 1934 1957 1962 


-PR 015524 206 2076 2086* 2087 2090* 2096 20994 


-TYPE 016124 21914 
- ABS. 016772 000 


ERRORS DETECTED: 0 
DSKZ : CZDJBF ,DSKZ : CZDJBF . SEQ=DSKZ: CZDJBF .MAC ,DSKZ: CZDJBF .P11 
RUN-TIME: 6 9 .6 SECONDS 


: ‘ ON! 
RUN-TIME RATIO: 124/17=7.2 
CORE USED: 20k (39 PAGES) 


DOCUMENT PAGES: 51 





